home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OCXSTEP2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-26  |  5.1 KB  |  167 lines
  1. VERSION 4.00
  2. Begin VB.Form FormStep1 
  3.    Caption         =   "Mail eXtension Step #2"
  4.    ClientHeight    =   5295
  5.    ClientLeft      =   1590
  6.    ClientTop       =   1620
  7.    ClientWidth     =   6735
  8.    Height          =   5670
  9.    Left            =   1545
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5295
  12.    ScaleWidth      =   6735
  13.    Top             =   1290
  14.    Width           =   6825
  15.    Begin VB.PictureBox Picture1 
  16.       Align           =   2  'Align Bottom
  17.       Height          =   495
  18.       Left            =   0
  19.       ScaleHeight     =   465
  20.       ScaleWidth      =   6705
  21.       TabIndex        =   0
  22.       Top             =   4800
  23.       Width           =   6735
  24.       Begin VB.Label szStatus 
  25.          Caption         =   "No Active Session"
  26.          Height          =   255
  27.          Left            =   120
  28.          TabIndex        =   3
  29.          Top             =   120
  30.          Width           =   4695
  31.       End
  32.    End
  33.    Begin Threed.SSPanel SSPanel1 
  34.       Align           =   1  'Align Top
  35.       Height          =   1095
  36.       Left            =   0
  37.       TabIndex        =   1
  38.       Top             =   0
  39.       Width           =   6735
  40.       _Version        =   65536
  41.       _ExtentX        =   11880
  42.       _ExtentY        =   1931
  43.       _StockProps     =   15
  44.       BackColor       =   12632256
  45.       BevelInner      =   1
  46.       Begin Threed.SSCommand SSCommand1 
  47.          Height          =   855
  48.          Left            =   120
  49.          TabIndex        =   2
  50.          Top             =   120
  51.          Width           =   1215
  52.          _Version        =   65536
  53.          _ExtentX        =   2143
  54.          _ExtentY        =   1508
  55.          _StockProps     =   78
  56.          Caption         =   "Login cc:Mail"
  57.          Picture         =   "OCXSTEP2.frx":0000
  58.       End
  59.    End
  60.    Begin Mailx16Lib.MForm MForm1 
  61.       Left            =   480
  62.       Top             =   4440
  63.       _Version        =   65541
  64.       _ExtentX        =   10398
  65.       _ExtentY        =   500
  66.       _StockProps     =   0
  67.       MXFormName      =   "FormTag2"
  68.    End
  69.    Begin Mailx16Lib.MSess MSess1 
  70.       Left            =   120
  71.       Top             =   3840
  72.       _Version        =   65541
  73.       _ExtentX        =   900
  74.       _ExtentY        =   900
  75.       _StockProps     =   0
  76.       Mail_Type       =   2
  77.       DisplayErrors   =   0   'False
  78.    End
  79.    Begin Mailx16Lib.MMsg MMsg1 
  80.       Left            =   120
  81.       Top             =   3000
  82.       _Version        =   65541
  83.       _ExtentX        =   900
  84.       _ExtentY        =   900
  85.       _StockProps     =   0
  86.       MarkAsRead      =   0   'False
  87.       DisplayErrors   =   0   'False
  88.       BindString      =   "MSess1"
  89.    End
  90.    Begin TabDlg.SSTab SSTab1 
  91.       Height          =   3255
  92.       Left            =   360
  93.       TabIndex        =   4
  94.       Top             =   1200
  95.       Width           =   6135
  96.       _Version        =   65536
  97.       _ExtentX        =   10821
  98.       _ExtentY        =   5741
  99.       _StockProps     =   15
  100.       Caption         =   "Inbox Messages"
  101.       TabsPerRow      =   5
  102.       Tab             =   0
  103.       TabOrientation  =   0
  104.       Tabs            =   1
  105.       Style           =   1
  106.       TabMaxWidth     =   0
  107.       TabHeight       =   529
  108.       TabCaption(0)   =   "Inbox Messages"
  109.       Tab(0).ControlCount=   3
  110.       Tab(0).ControlEnabled=   -1  'True
  111.       Tab(0).Control(0)=   "Outline1"
  112.       Tab(0).Control(1)=   "Label1"
  113.       Tab(0).Control(2)=   "szTotal"
  114.       Begin VB.Label szTotal 
  115.          Height          =   255
  116.          Left            =   2040
  117.          TabIndex        =   7
  118.          Top             =   2880
  119.          Width           =   1935
  120.       End
  121.       Begin VB.Label Label1 
  122.          Caption         =   "Total Inbox Messages:"
  123.          Height          =   255
  124.          Left            =   240
  125.          TabIndex        =   6
  126.          Top             =   2880
  127.          Width           =   1695
  128.       End
  129.       Begin MSOutl.Outline Outline1 
  130.          Height          =   2295
  131.          Left            =   240
  132.          TabIndex        =   5
  133.          Top             =   480
  134.          Width           =   5655
  135.          _Version        =   65536
  136.          _ExtentX        =   9975
  137.          _ExtentY        =   4048
  138.          _StockProps     =   77
  139.          BackColor       =   16777215
  140.          MouseIcon       =   "OCXSTEP2.frx":0452
  141.          PicturePlus     =   "OCXSTEP2.frx":046E
  142.          PictureMinus    =   "OCXSTEP2.frx":05E0
  143.          PictureLeaf     =   "OCXSTEP2.frx":0752
  144.          PictureOpen     =   "OCXSTEP2.frx":08C4
  145.          PictureClosed   =   "OCXSTEP2.frx":0A36
  146.       End
  147.    End
  148. Attribute VB_Name = "FormStep1"
  149. Attribute VB_Creatable = False
  150. Attribute VB_Exposed = False
  151. Private Sub SSCommand1_Click()
  152.     MSess1.Logon = True
  153.     If MSess1.Logon = True Then
  154.         szStatus = "Active cc:Mail Session"
  155.     Else
  156.         szStatus = "No Active Session"
  157.     End If
  158.     Refresh_Inbox
  159. End Sub
  160. Public Sub Refresh_Inbox()
  161.     If MSess1.Logon = True Then
  162.         szTotal = MMsg1.MsgCount
  163.     Else
  164.         szTotal = 0
  165.     End If
  166. End Sub
  167.